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EDTSLFLNO - format the current Line number 1$-$ep-19 4 90:30:18 


AX-11 Bliss-32 v4. ' 
14-Sep-1984 I a =~ 


VAX-11 vened P 
DISKSVMSMASTER: CEDT.SRCJLFLNO.BLI;1 (1) 
FLNO = format the current Line number’ 
LNO ( ' Format the current Line number 

poEnt = *'v04-000' ! File: LFLNO.BLI Edit: JBS1011 


BEGIN 


See eee A AAR EE EAA AAAAAAEAAAEREREERAREREEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ACCORDAN TH THE TERMS OF H LICENSE AND WITH THE 


3 ; 

: 4 

3 5 1 

; 8 1 

$ 1 

8 8 1 * 
§ Y 1 & 
BS 1 * 
$ 11 1 * 
: \¢ 1 * 
Ps 1 1 & 
s 6 6S 0014 1 !* IN CE wl OF SUC * 
: 15 0015 1 !* INCLUSI OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: \3 id ! ” TRANSFERRED. * 
; :* te 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $8 if : ” CORPORATION. * 
3 '® ® 
; c& 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ca 0026 1 !* * 
ar 0027 1 !* * 
3 28 0028 1 Vee RRR AAA AAA AERA AAA AAA AAA AAA 
3 9 0029 1! 

: $6 0030 1 

oe | 0031 1 !++ 

H 32 0032 1 ! FACILITY: EDT == The DEC Standard Editor 

Se 0033 1! 

; 34 0034 1 ! ABSTRACT: 

: 0035 1! 

$ 39 ie : This module formats a Line number for printing. 

; 4 sit : ENVIRONMENT: Runs at any access mode - AST reentrant 

s : ne ! AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 

3 One : MODIFIED BY: 

3 044 1 ! 1-001 - Original. DJS 02-FEB-1981. This module was created b 

; phed : extracting the routine EDTSSFILL_LNO from the module EXEC.BLI. 

g 002? 1 ! 1-002. DJS 11-FEB-1981. The tab following the editor-supplied Line 

3 0048 1! number changed to an equivalent number of spaces so that there 

3 0049 1! is no ere lem with terminals with settable tab stops. 

$ 0050 1 ! 1-003 - Regularize headers. JBS 19-Mar-1981 

: 0051 1 ! 1-004 = Remove division on Line number calculations. SMB 13-Jan-1982 

3 st 1 ! 1-005 = Change Line number print format depending on size of Line#. SMB 24-Jan-1982 
: 55 1! I- 4] - Change Line number division to routine call. SMB 11-Feb-1982 

3 54 1! 1- 5 - Change positioning in format buffer of text. STS 22-Jun-198 

3 055 1 ! 1-008 - Change the column position of type text. SMB 14-Jul-1982 

; 326 1 ! 1-009 = Put fsetcol in Line. STS 11-Oct-1982 

: 0057 1 ! 1-010 - Modify to use new compare macro. STS 20-Oct-1982 


SAY «SOTFLAD = formate currne Utne mamber — HEHSei MESSEIE  SMcHIAAMMERE SES rno.suss cf 


28 0989 ] j_1-0i1 ~ Maintain cursor position. JBS 22-Oct-1982 
1! 
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bd pe Bond atone the current Line number 16-5 sen-1984 99: 39: 18 


Ose ! XSBTTL ‘Declarations’ 
re 1 ! TABLE OF CONTENTS: 
064 1! 
065 1 
$ REQUIRE 'EDTSRC:TRAROUNAM'; 
2p8 1 FORWARD ROUTINE 
050 1 EDTSSFILL_LNO : NOVALUE; 
‘ 0508 #1 
0509 1! 
8219 1 ! INCLUDE FILES: 
51 1! 
051 1 
051 1 REQUIRE ‘EDTSRC:EDTREQ'; 
0648 1 
0649 1! 
0650 1 ! MACROS: 
0651 1! 
8836 13 NONE 
0653 1! 
0654 1 ! EQUATED SYMBOLS: 
0655 1! 
0656 1! NONE 
0657 1! 
0658 1 ! OWN STORAGE: 
0659 1! 
0660 1! NONE 
0661 1! 
066 1 ! EXTERNAL REFERENCES: 
0663 1! 
0664 1! In the routine 


! Format a Line number for printing 


mt 


Re LFLNO.BLI;1 


Page 
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1 
EDTSLFLNO EDTSLFLNO - format the current Line number 1b-5e -1984 00:50: VAX=-11 Bliss-32 V4.0-74 Page 
be bbb EDTS$FILL_LNO - lornst the current Line number 1 ~3007 138% 99:39:48 DIKSVMGMASTERSCEDT  SRCULFLNO.BLI:1 . (3 
3 3? $67 ! ZSBITL "EDTSSFILL_LNO = format the current Line number' 
is. OF $e) 1 GLOBAL ROUTINE EDTSS$FILL_LNO ' Format the current Line number 
is BS 668 1 : NOVALUE = 
3 99 0669 1 
= ©6100 0670 1 !++ 

: 101 0671 1 ! FUNCTIONAL DESCRIPTION: 

; ee pore 1! 

; Ww 0675 1! Format a Line number for printing. The Line number of the current 

: 104 0674 1: Line is converted to a decimal number with leading zeros and. 

3 6D 0675 1! trailing zeroes after the decimal point suppressed. The decimal 

; 196 bere 3 point is suppressed if the number is an integer. 

: err 63 

; 108 0678 1 ! FORMAL PARAMETERS: 

; 109 0679 1! 

: 110 0680 1! NONE 

s 315 0681 1! 

; Ne 0682 1 ! IMPLICIT INPUTS: 

» 35 0685 1! 

> (114 0684 1! EDTSSA_FMT_CUR 

s 135 0685 1! EDTSST_FMT_BUF 

;. 3% 0686 1! EDTS$L_LNOO 

s aS" 0687 1! thru 

>: 118 0688 1! EDT$$SL_LNO14 

; 199 0689 1! EDTSSA_WK_LN 

; 120 0690 1! 

; 32% 0691 1 ! IMPLICIT OUTPUTS: 

tae 0692 1! 

s Ves 0695 1! EDTSSA_FMT_CUR 

: 124 0694 1! EDT$$G_PRV_COL 

: te 0695 1! EDT$$G_FMT_LNPOS 

> 126 0696 1! 

: ter 0697 1 ! ROUTINE VALUE: 

: 128 0698 1! 

: 144 0699 1! NONE 

: 130 0700 1! 

s 69S) 0701 1 ! SIDE EFFECTS: 

; Te 0702 1! 

s 135 0703 1! NONE 

; 134 07046 1! 

3 339 0705 1 !-- 

; 136 0706 1 

; 137 0707 BEGIN 

; 138 8705 

: 139 709 EXTERNAL ROUTINE 

3; 140 0710 2 EDTSSLDIV; 

: 161 0711 § 

3 Hs orig EXTERNAL : 

; 14 0713 2 EDTS$$G_FMT_LNPOS, ' Column number, for formatting 

3 (144 0714 2 EDTSSA_FMT_CUR, i Current position in the format buffer 

; «6145 0715 § EDTSST_FMT_BUF, ! The format buffer 

: 146 0716 EDTS$L_LNOD : LNOVECTOR [14], ' Powers of 1 

; 147 0717 EDTSSA_WK_LN : REF LIN_BLOCK, ! The current Line in the work file 

3: 148 0718 EDT$$G_PRV_COL; ! Cursor column number 

3 «(149 44h 

; 30 rs LOCAL ; 

3; 91 0721 LNUM_LEN, ! Line number Length 
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0759 
0760 
aa: 
3 ok: 
94 0764 
95 0765 
96 0766 
97 0767 
98 0768 
199 0769 
300 0770 
: 201 0771 
; 202 14: 
; 203 144 
; 204 774 
; 205 1454 
> 206 776 
; 07 077 
; 208 0778 
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i" Initialize the pointer to the beginning of the format buffer. 
* T_LINE_NUM = .EDTSSA_FMT_CUR; 

; Get the offset into the format buffer where we are positioned 
LFORMAT = .EDTSSA_FMT_CUR - EDTSST_FMT_BUF; 

i Fetch the Line number into a local 

MOVELINE (EDTSSA_WK_LN CLIN_NUMJ, LINNO); 

SIGNIF = 0; 


14 
: Initialize the Line number field to spaces. Format is nnnnn.nnnnnb if 
' Line number < 10**5 and nnnnnnnnnn.nnnnnb otherwise. 


If _CCMPLNO CEDTSSA_WK_LN CLIN.NUM], EDTSSL_LNOO [10]) GEO 0) 


BEGIN 
EDTSSCPY_MEM (17, UPLIT (ZSTRING (' ")), .«TLLINE_NUM) ; 
LNUM_LEN = 17; 


BEGIN 
a a ee UPLIT (ZSTRING (' ")), «TLLINE_NUM) ; 


LNUM_LE 
END; 


LFORMAT = .LFORMAT + .LNUM_LEN; 
i Loop once for each possible digit in the number starting with most 
;_ Significant 
DECR beco™ 14 T0 0 DO 
EDTSSLDIV (LINNO, DIGIT, .1); 
i vrite the digit out if the current digit is non-zero or 


! we have seen a previous non zero digit or we are down 
to the units digit. 


on meant NEQ 0) OR (.SIGNIF NEQ 0) OR (.1 EQL 5)) 


BEGIN 
CHSWCHAR (.DIGIT + XC'O", .T_LINE_NUM); 
SIGNIF = .SIGNIF + 1; 


dD 1 
O - format the current Line number 1p~sep= 135% 99:30:18 VAX-11 Bliss-32 V4.0-74 
L_LNO = format the current Line number 14-Sep-1984 12:25:34 DISKSVMSMASTER: CEDT.SRCJLFLNO.BLI;1 
SIGNIF, ' Flag indicating a sig. digit has been seen 
DIGIT ! The current digit 
LFORMAT, i Length of line number format 
DIVISOR : LN BLOCK, ! A power of ten to divide by 
LINNO : LN_BCOCK, ' The Line number we are putting out 
TL LINE _NUM; ! Pointer into the output buffer. 
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MASTER: CEDT.SRCJLFLNO.BLI;1 (3) 
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ro 
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fo 4 00:50:18 V 
NO = format the current Line number 14-Sep-1984 99:39:48 D 
END; 


14 
: Bump the character pointer. 


E 


| IF ((.LNUM_LEN EQL 17) OR ((.LNUM_LEN EQL 12) AND (.1 LEQ 9))) 


TLLINE_NUM = CHSPLUS (.T_LINE_NUM, 1); 


4 
! If we are into the fractional part and the rest of 
} the number is zero, then get out of the Loop. 


IF ((.1 LEQ 5) AND (.LINNO EQL 0)) THEN EXITLOOP; 


+ 


If we are down to the units position, then write out 
the decimal point. 


IF (.1 EQL 5) THEN CHSWCHAR_A ('.*, T_LINE_NUM); 
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END; 
5 1+ 
1 Set the format buffer pointer and column number. 
8 " EDTSSA_FMT_CUR = CHSPTR (EDTSST_FMT_BUF, .LFORMAT); 
9 EDT$$G_PRV-COL = .EDT$$G_PRV_COL + [LFORMAT - .EDTSS$G_FMT_LNPOS; 
0 EDTS$$G_FMT_LNPOS = .LFORMAT; 
1 END; ! of routine EDTS$FILL_LNO 
; -TITLE EDTSLFLNO EDTSLFLNO - format the current Line n 
LIDENT \v04-000\ 
.PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000 P.AAA: .ASCII \ \<0><0> ; 
99 90 0 20 20 0000F : 
00 00 20 20 20 20 20 20 20 20 2 0 20 20 90014 P.AAB: ASCII \ \<0><0><0> : 
0 00023 ; 
-EXTRN EDTSSLDIV, EDT$$G_FMT_LNPOS 
| SEXTRN EDTSSA_FMT_CUR, EOTSST_FMT_BUF 
-EXTRN EDTSS$L_LNOO, EDTSSA_WK_LN 
“EXTRN EDTS$$G~PRV_COL 
OFFC 00000 ENTRY EDTSSFILL LNO, Save R2,R3,R4,R5,R6,R7,R8,~ ; 0667 
58 00 00006 00 9€ 90002 MOVAB EDf$$G_PRV_COL, R11 : 
5a 000000006 00 9€E 000 HOVAB EDISSI FMT“BUF. R10 : | 
5E 14 C2 0001 SUBL #20, SP : 
51 000000006 00 00 0001 MOVL  EDTS$S$A_FMT_CUR, R1 : 0732 


Cea ee nT eres 
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(3) | 

; 0736 
0740 | 
0741 
0747) 
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FLNO = format the current Line number 
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50 00000 


50 
50 


_FMT_CUR 


LNUM_LEN 
(T_LINE_NUM) 
LEN, LFORMAT 
, (TLINE_NUM) 
LFORMAT, EDTS$SA 
$6 PRY COL. RO 


» P.AAA, (T_LINE_NUM) 


LEN, #12 


MA 


, EDTSSLDIV 


LNUM 

#14, 

#48, DIGIT 
UM 
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PUSHAB DIGIT 
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| , 
6x 000000006 C C SUBL3 EDT$$G_FMT_LNPOS, RO, EDT$$G_PRV_COL ; 
| 000000006 ty a 3 G9008 MOVL LFORMAT, EDTS$G_fmT_CNPOS ; 9810 


ls Routine Size: 222 bytes, Routine Base: _EDTSCODE + 0024 


ste pele 1 
24 0815 1 !<BLF/PAGE> 


—_—_- 


OEE LL En ene 


; Lines/CPU Min: 


H 1 | 
TSLFLNO EDTSLFLNO - format the current Line number 16-Sep-1984 VAX-11 Bliss-32 V Pa 9 
- EDTSSFIUL_LNO - format the current Line number 14-Sep ats 99: 39: if DISKSVMSMASTER: cto i SRCSLFLNO. BLI;1 se (4) | 
245 0814 1 END ! TSLFLN | 
cd oes 4 of module EDTS$LFLNO | 
47 0816 0 ELUDOM | 
| 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 258 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
apne nese Symbols ---<----- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CEDT. SRCJEDT.L32;1 377 16 4 40 00:00.2 
“$255$DUA28: CEDT.SRCJPSECTS.L32;1 2 1 50 7 00:00.1 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LFLNO/OBJ=O0BJ$:LFLNO MSRC$:LFLNO.BLI/UPDATE=(ENH$:LFLN) 
; Size: 222 code + 36 data bytes 
. T : 00:16.2 
; Elapsed Time: 00:21.9 

3020 
: Lexehes/CPU-Min: 10460 


Used: 115 pages 


| 

COMMAND QUALIFIERS 

: poet My ay Complete | 
| 


. 
. 
. 
. 
. 
os 
. 
a 
. 
. 
. 
. 
. 
” 
. 
. 
. 
o 
. 
o 
. 
° 
. 
a 
. 
e 
. 
e 
. 
2 
. 
. 
. 
o 
e 
. 
. 
. 
e 
° 
o 
- 
o 
. 
e 
. 
a 
. 
eo 
7 
o 
. 
o 
. 
. 
. 
a 
. 
o 
. 
e 
. 
os 
. 
a 
. 
~ 
. 
ao 
. 
. 
e 
. 
. 
7 
e 
a 
7 
os 
© 
e 
7 
e 
. 
e 
o 
e 
. 
a 
. 
e 
. 
a 
. 
e 
- 
. 
o 
oO 
. 
. 
. 
o 
. 
o 
7 
. 
. 
. 
. 
= 


G 
N 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


ss 
I 


IGI 
ONF 


D 
C 


0135 


A 
D 


VAX/VMS V4.0 


0136 AH-BT13A-SE. 


